home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 10 / Dark_Star_10_1996_-_de_Side_B.d64 / edit seq datei (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  235 lines
  1. 100 rem *******************************
  2. 110 rem *   editieren von seq-files   *
  3. 120 rem *                             *
  4. 130 rem *   quelle: 64'er sh1,        *
  5. 140 rem *   seite 44                  *
  6. 150 rem *******************************
  7. 160 :
  8. 170 :
  9. 180 dimte$(2000):rem max anzahl datensatz
  10. 190 open15,8,15
  11. 200 print"[147]"
  12. 210 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  13. 220 print"      lesen und editieren
  14. 230 [153]"        einer seq. datei
  15. 240 print"      l = lesen einer datei
  16. 250 [153]"      b = programmende
  17. 260 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  18. 270 print" waehle:[146]
  19. 280 [161]r$:[139]r$[178]""[167]280
  20. 290 [139]r$[178]"b"[167][160]2:[160]15:[128]
  21. 300 [139]r$[179][177]"l"[167]280
  22. 310 :
  23. 320 [143] ---- lesen einer seq datei ----
  24. 330 :
  25. 340 :
  26. 350 i[178]1
  27. 360 [153]" welche datei soll gelesen werden?
  28. 370 input"dateiname = ";n$
  29. 380 fi$=n$+",s,r"
  30. 390 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  31. 400 print"  soll mit get oder mit input"
  32. 410 print"  gelesen werden (g/i)?
  33. 420 [161]rr$:[139]rr$[178]""[167]420
  34. 430 [139]rr$[178]"g"[167]480
  35. 440 [139]rr$[178]"i"[167]670
  36. 450 [137]420
  37. 460 :
  38. 470 [143] ----------- get# --------------
  39. 480 [159]2,8,2,fi$
  40. 490 [132]15,a1,a2$,a3,a4
  41. 500 [139]a1[179][177]0[167][141]2320:[137]350
  42. 510 [153]"load"
  43. 520 [153]:[153]"        leertaste druecken!":[153]
  44. 530 [153]"        -------------------":[153]
  45. 540 [153]""i"wait";
  46. 550 [161]r$:[139]r$[179][177]" "[167]550
  47. 560 [161]#2,a$
  48. 570 [139]a$[178][199](13)[167][153]"*":i[178]i[170]1:[137]610
  49. 580 te$(i)[178]te$(i)[170]a$
  50. 590 [153]a$;
  51. 600 [137]550
  52. 610 [139]st[179][177]64[167]540
  53. 620 [160]2
  54. 630 i[178]i[171]1
  55. 640 [137]800
  56. 650 :
  57. 660 :
  58. 670 [143] ------- input# -------
  59. 680 [159]2,8,2,fi$
  60. 690 [132]15,a1,a2$,a3,a4
  61. 700 [139]a1[179][177]0[167][141]2320:[137]350
  62. 710 [153]:[153]"      leertaste druecken!":[153]
  63. 720 [161]r$:[139]r$[179][177]" "[167]720
  64. 730 [132]2,a$
  65. 740 te$(i)[178]a$
  66. 750 [153]""i"wait";a$
  67. 760 [139]st[179][177]64[167]i[178]i[170]1:[137]720
  68. 770 [160]2
  69. 780 :
  70. 790 :
  71. 800 [143] ----- editieren ------
  72. 810 :
  73. 820 flag[178]0
  74. 830 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  75. 840 [153]"  e = einfuegen einer zeile
  76. 850 print"  c = aendern   einer zeile
  77. 860 [153]"  l = loeschen  einer zeile
  78. 870 print"  d = drucken der datei
  79. 880 [153]"  2 = weiter
  80. 890 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  81. 900 print"waehle
  82. 910 [161]r$:[139]r$[178]""[167]910
  83. 920 [139]r$[178]"e"[167][141]1470
  84. 930 [139]r$[178]"c"[167][141]1030
  85. 940 [139]r$[178]"l"[167][141]1620
  86. 950 [139]r$[178]"d"[167][141]1730
  87. 960 [139]r$[178]"2"[167]1960
  88. 965 [139]r$[178]" "[167]910
  89. 970 [137]800
  90. 980 :
  91. 990 :
  92. 1000 [143] ----- aendern einer zeile ----
  93. 1010 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  94. 1020 :
  95. 1030 [153]"loadaendern einer zeile
  96. 1040 print" i= mit input (kein komma!)
  97. 1050 [153]" g= mit get (schreibfehler vermeiden!)
  98. 1060 print" 2= weiter
  99. 1070 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  100. 1080 [153]"waehle
  101. 1090 getr$:ifr$=""then1090
  102. 1100 ifr$="2"thenreturn
  103. 1110 ifr$="g"then1300
  104. 1120 ifr$="i"then1140
  105. 1130 goto1030
  106. 1140 rem -------- input ----------
  107. 1150 ifflag=1then1220
  108. 1160 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  109. 1170 print"welche zeile soll geaendert werden?"
  110. 1180 input"nr:";n$:n=val(n$)
  111. 1190 ifn<1orn>ithenprint:printtab(8)"nicht moeglich!":print:print:goto1160
  112. 1200 print"alter inhalt: "te$(n)
  113. 1210 print
  114. 1220 print" geben sie jetzt den neuen inhalt ein    (input)
  115. 1230 [133]a$
  116. 1240 te$(n)[178]a$
  117. 1250 [153]""te$(n)
  118. 1260 flag[178]0
  119. 1270 [142]
  120. 1280 [143] ---- mit get ------------
  121. 1290 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  122. 1300 [139]flag[178]1[167]1330
  123. 1310 [153]"welche zeile soll geaendert werden?"
  124. 1320 [133]"nr:";n$:n[178][197](n$)
  125. 1330 [153]"alter inhalt ";te$(n):te$(n)[178]""
  126. 1340 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  127. 1350 [153]" geben sie jetzt den neuen inhalt ein    (get):":[153]
  128. 1360 [161]a$:[139]a$[178]""[167]1360
  129. 1370 [139]a$[178][199](13)[167]1420
  130. 1380 [153]a$;
  131. 1390 te$(n)[178]te$(n)[170]a$
  132. 1400 [137]1360
  133. 1410 :
  134. 1420 :
  135. 1430 [153]:[153]""te$(n)
  136. 1440 flag[178]0
  137. 1450 [142]
  138. 1460 :
  139. 1470 [143]---- einfuegen einer zeile ----
  140. 1480 :
  141. 1490 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  142. 1500 [153]"hinter welcher zeile
  143. 1510 inputn
  144. 1520 n=n+1
  145. 1530 forl=itonstep-1
  146. 1540 :te$(l+1)=te$(l)
  147. 1550 nextl
  148. 1560 i=i+1
  149. 1570 flag=1
  150. 1580 print"schreiben der neuen zeile
  151. 1590 [137]1040
  152. 1600 :
  153. 1610 :
  154. 1620 [143] ------ loeschen --------
  155. 1630 :
  156. 1640 [153]:[153]
  157. 1650 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  158. 1660 [133]" welche zeile loeschen?";n
  159. 1670 [139]n[177]i[167][153]"max= "i:[137]1710
  160. 1680 [129]l[178]n[164]i:te$(l)[178]te$(l[170]1):[130]
  161. 1690 i[178]i[171]1
  162. 1700 [153]"zeile"n" ist geloescht"
  163. 1710 [142]
  164. 1720 :
  165. 1730 [143] ----- drucken der datei -----
  166. 1740 [153]
  167. 1750 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan":[153]
  168. 1760 [153]"drucken der datei
  169. 1770 print" 1= drucken
  170. 1780 [153]" 2= weiter
  171. 1790 print"  waehle
  172. 1800 [161]r$:[139]r$[178]""[167]1800
  173. 1810 [139]r$[179]"1"[176]r$[177]"2"[167]1800
  174. 1820 [139]r$[178]"2"[167]1910
  175. 1830 [133]"drucker ok?";r$
  176. 1840 [159]1,4:[157]1
  177. 1850 [153]"datei: "n$
  178. 1860 [129]j[178]1[164]i
  179. 1870 :[153]j;te$(j)
  180. 1880 [130]j
  181. 1890 [153]:[153]:[153]:[153]
  182. 1900 [152]1:[160]1
  183. 1910 [142]
  184. 1920 :
  185. 1930 :
  186. 1940 [143] ----- speichern der datei -----
  187. 1950 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan":[153]
  188. 1960 [153]"soll der gesamte text erneut abgespei-  chert werden?
  189. 1970 print" 1= ja
  190. 1980 [153]" 2= programmende
  191. 1990 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  192. 2000 print"waehle
  193. 2010 [161]r$:[139]r$[178]""[167]2010
  194. 2020 [139]r$[178]"2"[167][138]
  195. 2030 [139]r$[179][177]"1"[167]2010
  196. 2040 [153]
  197. 2050 [133]"welcher dateiname";n$
  198. 2060 :
  199. 2070 fi$[178]n$[170]",s,w"
  200. 2080 [153]"load"
  201. 2090 [160]2:[159]2,8,2,fi$
  202. 2100 [132]15,a1,a2$,a3,a4
  203. 2110 [139]a1[178]0[167]2200
  204. 2120 [139]a1[179][177]63[167][141]2320:[137]1960
  205. 2130 [153]:[153]" der name "n$" existiert schon!
  206. 2140 print:print" wollen sie diese datei ueberschreiben?
  207. 2150 [153]:[153]" waehle (j/n)
  208. 2160 getr$:ifr$=""then2160
  209. 2170 ifr$="j"thenn$="@:"+n$:goto2070
  210. 2180 ifr$<>"n"then2160
  211. 2190 print:print" versuchen sie es noch einmal":goto1960
  212. 2200 forj=1toi
  213. 2210 :print#2,te$(j):print""j,i
  214. 2220 nextj
  215. 2230 :
  216. 2240 print"gespeichert!"
  217. 2250 close2
  218. 2260 fori=1to1500:next
  219. 2270 run
  220. 2280 :
  221. 2290 :
  222. 2300 print"[147]"
  223. 2310 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  224. 2320 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  225. 2330 print"             diskettenfehler!
  226. 2340 [153]"  datei : "n$
  227. 2350 [153]"wait":[143] reverse off
  228. 2360 [153]a1,a2$,a3,a4
  229. 2370 [160]2
  230. 2380 [153]"       beheben sie den fehler und
  231. 2390 print"  ........druecken sie >f< ..........
  232. 2400 [161]r$:[139]r$[179][177]"f"[167]2400
  233. 2410 [153]"load"
  234. 2420 [142]
  235.